Data preprocessing

## Warning: Missing column names filled in: 'X1' [1]
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   .default = col_double(),
##   X1 = col_character()
## )
## ℹ Use `spec()` for the full column specifications.

Abundance analysis

All subtypes (epi clusters grouped)

Correlation of Epithelial HLA-DR+ subsets and immune cells

## `geom_smooth()` using formula 'y ~ x'

## Warning in wilcox.test.default(c(0, 0.0148, 0, 0, 6e-04, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0148, 0, 0, 6e-04, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0062, 0, 0, 0.0085, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0.1001, 0.1217, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0.1001, 0.1217, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0438, 0, 0, 0.0898, 0.1666, 0.1807, 0.1653, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0438, 0, 0, 0.0898, 0.1666, 0.1807, 0.1653, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0092, 0.1337, 0.0462, 0.3358, 0.1244, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0068, 0, 0, 0.1052, 0.1705, 0.2888, 0.1416, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0068, 0, 0, 0.1052, 0.1705, 0.2888, 0.1416, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.003, 0, 0.0494, 0.1097, 0.0046, 0, 0.2495, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.1134, 0.1207, 0, 0.2244, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.1134, 0.1207, 0, 0.2244, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0124, 0.0017, 0.1582, 0, 0.0312, 0.1219, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(6e-04, 0, 0, 0, 0.0653, 0.0658, 0.07, 0.0959, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(6e-04, 0, 0, 0, 0.0653, 0.0658, 0.07, 0.0959, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0194, 0, 0.02, 0.1414, 0.0367, 0.0223, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(4e-04, 0, 0.0105, 0, 0.1206, 0.1406, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(4e-04, 0, 0.0105, 0, 0.1206, 0.1406, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0414, 0.0174, 0.045, 0.1881, 0.0285, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0106, 0, 0, 0.0401, 0.3013, 0.3629, 0.0121, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0106, 0, 0, 0.0401, 0.3013, 0.3629, 0.0121, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0138, 0.0438, 0.0187, 0.2756, 0.0179, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0127, 0.0074, 0, 0.025, 0.0698, 0.0773, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0127, 0.0074, 0, 0.025, 0.0698, 0.0773, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0468, 0.0314, 0.1278, 0.0707, 0.1344, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0061, 0, 0, 0.0092, 0.367, 0.3779, 0.0048, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0061, 0, 0, 0.0092, 0.367, 0.3779, 0.0048, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0164, 0.0326, 0.0153, 0.0791, 0.0293, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0.0106, 0.3568, 0.3917, 0.0056, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0.0106, 0.3568, 0.3917, 0.0056, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0106, 0.0452, 0.0315, 0.0952, 0.0436, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.1317, 0.0775, 0, 0.0533, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.1317, 0.0775, 0, 0.0533, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0081, 0, 0, 0, 0, 0.0357, 0, 0.0578, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.0162, 0, 0.0783, 0.1771, 0, 0.1077, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.0162, 0, 0.0783, 0.1771, 0, 0.1077, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0057, 0, 0.0072, 0.0131, 0, 0.0034, 0.0232, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0115, 0.0023, 0.0501, 0, 0.0125, 0.0223, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0115, 0.0023, 0.0501, 0, 0.0125, 0.0223, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0105, 0.0107, 0.0282, 0.0262, 0.0067, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0099, 0, 0, 0, 7e-04, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0099, 0, 0, 0, 7e-04, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0036, 0.002, 0, 0.0073, 0.0078, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0453, 0.062, 0, 0.0635, 0.008, 0.0034, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0453, 0.062, 0, 0.0635, 0.008, 0.0034, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0502, 0, 0.0335, 0, 0.1219, 0.0655, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0651, 0, 3e-04, 0.0383, 0.1132, 0.1176, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0651, 0, 3e-04, 0.0383, 0.1132, 0.1176, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.02, 0.0743, 0.0361, 0.1184, 0.1095, 0.1207, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0012, 0, 0.0024, 0.0045, 0.0227, 0.0209, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0012, 0, 0.0024, 0.0045, 0.0227, 0.0209, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0014, 0.0472, 0.0013, 0.2028, 0.0078, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0749, 0.312, 0.0352, 0.2087, 0.0438, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0749, 0.312, 0.0352, 0.2087, 0.0438, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0186, 0.0906, 0.0081, 0.0017, 0.0992, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0.0044, 0, 0.0063, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0.0044, 0, 0.0063, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 4e-04, 0, 0.0048, 0.0046, 0.007, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.1823, 0.0429, 0.2379, 0.0437, 0.1082, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.1823, 0.0429, 0.2379, 0.0437, 0.1082, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1e-04, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.1266, 0.2366, 0.0765, 0.2069, 0.0468, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.1266, 0.2366, 0.0765, 0.2069, 0.0468, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.023, 0, 0, 0, 0.1667, 0.1111, 0, 0.3249, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0085, 0.0374, 0, 0.0625, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0085, 0.0374, 0, 0.0625, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0085, 0.0349, 0, 0.0044, 0.0213, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0698, 0.2164, 0.0326, 0.0515, 0.4502, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 8e-04, 0, 0.0032, 6e-04, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 8e-04, 0, 0.0032, 6e-04, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(1e-04, 0, 1e-04, 0, 0.0023, 0.007, 9e-04, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0105, 2e-04, 0.0199, 0, 0.0073, 0, 0.0025, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0105, 2e-04, 0.0199, 0, 0.0073, 0, 0.0025, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0118, 0.012, 0.011, 0.0078, 0.0081, 0.0077, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0063, 0.009, 0.0749, 0, 0, 0.053, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0063, 0.009, 0.0749, 0, 0, 0.053, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0331, 0.0107, 0.0383, 0.0256, 0.0205, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.4097, 0, 0, 0, 0, 0, 0.5455, 0.3571, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.4097, 0, 0, 0, 0, 0, 0.5455, 0.3571, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.1255, 0, 0.1483, 0, 0.0088, 0.0238, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0433, 0.0952, 0.0308, 0.0716, 0.0906, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0433, 0.0952, 0.0308, 0.0716, 0.0906, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0177, 0.0774, 0.1446, 0.1615, 0.0313, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0093, 0.0077, 0.032, 0.0326, 0.0455, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0091, 0.0291, 0.1011, 0.056, 0.022, 0.0081, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0426, 0.1458, 0.0035, 0.0367, 0.04, 0.0773, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0426, 0.1458, 0.0035, 0.0367, 0.04, 0.0773, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0031, 0.0632, 0.0047, 0.1178, 0.0143, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0444, 0.074, 0.014, 0.0963, 0.058, 0.1791, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0477, 0.0663, 0.0443, 0.083, 0.0504, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0026, 0.0228, 5e-04, 0.017, 0, 0, 1e-04, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0026, 0.0228, 5e-04, 0.017, 0, 0, 1e-04, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0037, 0, 0, 0.0032, 1e-04, 0, 0.0054, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.0018, 0, 1e-04, 0, 0, 0, 0.0029, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.0018, 0, 1e-04, 0, 0, 0, 0.0029, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0023, 0, 1e-04, 0, 0.003, 0.0135, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0182, 0.04, 0.0135, 0.1379, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0182, 0.04, 0.0135, 0.1379, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0396, 0, 0.1166, 0.002, 0.0831, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0186, 0, 0.0018, 0.0049, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0186, 0, 0.0018, 0.0049, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0472, 0, 0, 0, 0, 0, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0493, 0, 0.0365, 0.0735, 0.1415, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0493, 0, 0.0365, 0.0735, 0.1415, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0029, 0.0161, 0, 0.1279, 0, 0, 0, 0.0234, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0128, 0.0212, 0, 0.0068, 0, 0, 0.0234, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0128, 0.0212, 0, 0.0068, 0, 0, 0.0234, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0044, 0.014, 0, 0, 0.005, 0.0032, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.086, 0.1654, 0, 0.0035, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.086, 0.1654, 0, 0.0035, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0011, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.019, 0.0291, 0, 0.1061, 0.1768, 0.0195, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.019, 0.0291, 0, 0.1061, 0.1768, 0.0195, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0018, 0.02, 0.0223, 0.1679, 0.0137, 0.0263, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0016, 0.0025, 0, 0.002, 0.0019, 0.0022, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0016, 0.0025, 0, 0.002, 0.0019, 0.0022, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(7e-04, 0.0013, 5e-04, 4e-04, 7e-04, 0.0039, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0132, 0, 0.0245, 0, 0, 0, 0, 0, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0132, 0, 0.0245, 0, 0, 0, 0, 0, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0024, 1e-04, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.099, 0, 0, 0, 0.0159, 0, 0, 0.0269, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.099, 0, 0, 0, 0.0159, 0, 0, 0.0269, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0817, 0, 0.0821, 0.007, 0.02, 0.0166, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.1327, 0, 0, 0, 0.0203, 0.0144, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.1327, 0, 0, 0, 0.0203, 0.0144, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0217, 0, 0.0516, 0, 0.0595, 0.0488, 0.0237, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0062, 0, 0.0135, 0.0138, 0.0524, 0.0308, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0062, 0, 0.0135, 0.0138, 0.0524, 0.0308, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0221, 0.0034, 0.0433, 0.0028, 0.0331, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.007, 0.0028, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.007, 0.0028, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0061, 0, 0.0024, 0, 0, 0.0034, 0, 0.0041, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0822, 0.0906, 0, 0.2001, 0.1705, 0.2344, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0822, 0.0906, 0, 0.2001, 0.1705, 0.2344, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0867, 0.1129, 0.0509, 0.133, 0.0629, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0036, 0, 1e-04, 0, 0.0034, 0, 0.0015, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0036, 0, 1e-04, 0, 0.0034, 0, 0.0015, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0068, 0.0015, 0.0027, 0.0042, 0.004, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 5e-04, 0, 0, 3e-04, 0.0014, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 5e-04, 0, 0, 3e-04, 0.0014, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.0019, 0, 0, 0, 0, 0.002, 0, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.5091, 0.3853, 0.3768, 0.4758, 0.1696, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.03, 0.0637, 0, 0.0446, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.03, 0.0637, 0, 0.0446, 0, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.006, 0, 0.0069, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.2182, 0, 0.1408, 0.1609, 0, 0.1584, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.2182, 0, 0.1408, 0.1609, 0, 0.1584, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.1736, 0.0037, 0.1581, 0.0503, 0.0027, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0102, 0, 0, 0.0422, 0, 0, 0.0219, 0.014, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0102, 0, 0, 0.0422, 0, 0, 0.0219, 0.014, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0035, 0.0932, 0, 0, 0.0162, 0, 0.054, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0.0098, 0.1412, 0.2183, 0.0245, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0.0098, 0.1412, 0.2183, 0.0245, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0124, 0.0031, 0.1423, 0, 0, 0.0769, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0654, 0.0248, 0, 0.2241, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0654, 0.0248, 0, 0.2241, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0725, 0.0467, 0.167, 0.0431, 0.0379, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0192, 0.1139, 0.0036, 0.1247, 0.271, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0192, 0.1139, 0.0036, 0.1247, 0.271, : cannot
## compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0166, 0.2699, 0.049, 1.0616, 0.0715, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.021, 0.2304, 0.0049, 0.1535, 0.012, 0.0298, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.021, 0.2304, 0.0049, 0.1535, 0.012, 0.0298, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0018, 0.0407, 0, 0, 0.0456, 0.014, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0334, 0.1651, 0.0209, 0.1034, 0.0128, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0334, 0.1651, 0.0209, 0.1034, 0.0128, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0491, 0.0047, 0, 0.0541, 0.027, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0064, 0, 0, 0.0232, 0.0356, 0.0148, 0.0275, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0064, 0, 0, 0.0232, 0.0356, 0.0148, 0.0275, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0.0329, 0, 0.0707, 0.0254, 0.018, 0.0032, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.0029, 0, 0.0359, 0.0478, 0, 0.0288, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.0029, 0, 0.0359, 0.0478, 0, 0.0288, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0.0019, 0, 0, 0.0158, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.0222, 0, 0, 0, 0, 0.0474, 0, 0.0609, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.0222, 0, 0, 0, 0, 0.0474, 0, 0.0609, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0, 0, 0.03, 0.0086, 0, 0.0127, 0, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.1007, 0.2817, 0.0558, 0.2078, 0.0456, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.1007, 0.2817, 0.0558, 0.2078, 0.0456, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.0208, 0.0453, 0.004, 8e-04, 0.136, 0.0798, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.417, 0.115, 0.622, 0.799, 0.548, 0.502, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.417, 0.115, 0.622, 0.799, 0.548, 0.502, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(0.23, 0.049, 0.669, 0.554, 0.797, 0.505, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(1.4, 2.1, 3.3, 4.1, 1.9, 1.7, 2.7, 4.6, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(1.4, 2.1, 3.3, 4.1, 1.9, 1.7, 2.7, 4.6, :
## cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(2.2, 0.8, 4, 2.2, 4.4, 1.4, 1.3, 3.5, 2.5, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(3.86693641884315, 7.07205457119784,
## 4.59638177647667, : cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(5.73890858054428, 13.9532027953523,
## 12.0345205326704, : cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(5.73890858054428, 13.9532027953523,
## 12.0345205326704, : cannot compute exact p-value with ties
## Warning in wilcox.test.default(c(13.4715654153626, 13.3687617005951,
## 13.3621093604628, : cannot compute exact p-value with ties

By mutations

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0044, 0, 0, 0.0085, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0035, 0, 0, 0, 0.1452, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0438, 0, 0.0043, 0.0092, 0.0832, 0, 0.085, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0068, 0.0214, 0.2656, 0.003, 0.0023, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0049, 0, 0.0218, 0.0224, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(6e-04, 0.0462, 0.027, 0.0194, 0.0344, 0.0026, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(4e-04, 0.0444, 0.0367, 0.0414, 0.1003, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0106, 0, 0.001, 0.0138, 0.0185, 0.0061, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0127, 0, 0, 0, 0.0596, 2e-04, 0.075, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0061, 0, 0, 0.0164, 0.0475, 0.0169, 0.0747, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0.0106, 0.0255, 0.0164, 0.0384, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0.0081, 0.0053, 0.0067, 0.0525, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0.0057, 0.0051, 0.0048, 0.0175, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0115, 0.0082, 0, 0.0105, 0, 0.022, 0.0509, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0.0036, 0.0078, 0.0036, 0, 0.0081, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0453, 0.0465, 0.0392, 0.0502, 0.1117, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0651, 0.0305, 0.052, 0.02, 0.0329, 0.015, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0012, 0.0325, 0.0256, 0.0014, 0.0294, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0749, 0.0674, 0.0755, 0.0186, 0.0945, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0072, 0.0234, 0, 0.0101, 0.0013, 0.004, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.1823, 0.2682, 0.304, 0.2208, 0.1261, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.1266, 0.1243, 0.0938, 0.023, 0.2862, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0085, 0, 0, 0.0085, 0.0094, 0.0115, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0014, 0.0069, 1e-04, 9e-04, 0, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0105, 0.0204, 0.0337, 0.0118, 0.0045, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0063, 0.0175, 0, 0.0331, 0.0254, 0.0937, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0581, 0.0473, 0.1255, 0.2888, 0.1208, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0433, 0.0584, 0.0589, 0.0177, 0.1297, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0093, 0.0359, 0.0254, 0.0091, 0.037, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0426, 0.0371, 0.0701, 0.0031, 0.1373, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0026, 0.0024, 0, 0, 0.001, 5e-04, 0, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0037, 0.0024, 0.0023, 0.01, 0.0022, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0167, 0, 0.0032, 0, 0, 0.0278, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.0193, 0, 0, 0, 0, 0, 0, 0.0126, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0.0029, 0.0861, 0, 8e-04, 0.0234, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0128, 0.0081, 0, 0.0044, 0.0053, 7e-04, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0011, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0714, 0, 0.0018, 0.0743, 0.0507, 0.0801, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0016, 0.003, 2e-04, 7e-04, 8e-04, 5e-04, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0016, 0, 0.0024, 0, 2e-04, 0, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0756, 0, 0.0817, 0, 0.0624, 0.0139, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.1386, 0.0309, 0.0217, 0.2316, 0.0583, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0062, 0.0114, 0.033, 0.0221, 0.0218, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.007, 0, 0, 0.0061, 0, 0, 0, 0.0041, 0.0047, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0822, 0.0475, 0.0603, 0.0867, 0.0447, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0036, 0.0046, 0.0078, 0.0068, 0.0011, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0.0021, 0, 0.0023, 0.005, 0, 0.002, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0.0058, 0, 0, 0, 0, 0, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0.0241, 0, 0.1736, 0.0122, 0.184, 0.0651, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0102, 0, 0, 0, 0, 0.0153, 0.0651, 0.054, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0158, 0, 0.0098, 5e-04, 0.0019, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0.0026, 0.0173, 0.058, 0.0337, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0192, 0.1455, 0.056, 0.0166, 0.1996, : cannot
## compute exact p-value with ties

## Warning in wilcox.test.default(c(0.021, 0.0312, 0.041, 0.0018, 0.0421, 0.005, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0334, 0.0494, 0.0408, 0, 0.0584, 0.0383, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.0064, 0, 0, 0, 0.0152, 0.0022, 0.006, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0.0038, 0.027, 0.0019, 0, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0, 0, 0, 0, 0, 0.0103, 0.014, 0, 0, 0.0096, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.1007, 0.0958, 0.0846, 0.0208, 0.1926, :
## cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(5.73890858054428, 9.54420247472901,
## 13.7883827136, : cannot compute exact p-value with ties

## Warning in wilcox.test.default(c(0.417, 0.274, 0.739, 0.669, 0.459, 0.675, :
## cannot compute exact p-value with ties

DGE analysis

## Unlist done
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch cluster Gender
##    <chr>       <chr> <chr> <chr>   <fct> 
##  1 R3388_YZ_43 11938 1     1       Male  
##  2 R3388_YZ_23 13376 1     3       Female
##  3 R3388_YZ_24 13436 1     3       Male  
##  4 R3388_YZ_56 8356  1     1       Female
##  5 R3388_YZ_7  12994 1     3       Male  
##  6 R3388_YZ_20 12929 1     1       Female
##  7 R3388_YZ_58 12924 1     2       Male  
##  8 R3388_YZ_25 13622 1     1       Female
##  9 R3388_YZ_27 13771 1     2       Female
## 10 R4163_YZ_18 13651 2     1       Female
## # … with 51 more rows
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_43 11938 1     1         Male  
##  2 R3388_YZ_23 13376 1     3         Female
##  3 R3388_YZ_24 13436 1     3         Male  
##  4 R3388_YZ_56 8356  1     1         Female
##  5 R3388_YZ_7  12994 1     3         Male  
##  6 R3388_YZ_20 12929 1     1         Female
##  7 R3388_YZ_58 12924 1     2         Male  
##  8 R3388_YZ_25 13622 1     1         Female
##  9 R3388_YZ_27 13771 1     2         Female
## 10 R4163_YZ_18 13651 2     1         Female
## # … with 51 more rows
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_43 11938 1     1         Male  
##  2 R3388_YZ_23 13376 1     3         Female
##  3 R3388_YZ_24 13436 1     3         Male  
##  4 R3388_YZ_56 8356  1     1         Female
##  5 R3388_YZ_7  12994 1     3         Male  
##  6 R3388_YZ_20 12929 1     1         Female
##  7 R3388_YZ_58 12924 1     2         Male  
##  8 R3388_YZ_25 13622 1     1         Female
##  9 R3388_YZ_27 13771 1     2         Female
## 10 R4163_YZ_18 13651 2     1         Female
## # … with 51 more rows
## # A tibble: 44 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_43 11938 1     1         Male  
##  2 R3388_YZ_56 8356  1     1         Female
##  3 R3388_YZ_20 12929 1     1         Female
##  4 R3388_YZ_58 12924 1     2         Male  
##  5 R3388_YZ_25 13622 1     1         Female
##  6 R3388_YZ_27 13771 1     2         Female
##  7 R4163_YZ_18 13651 2     1         Female
##  8 R3388_YZ_44 11817 1     2         Female
##  9 R4163_YZ_17 13536 2     1         Female
## 10 R4163_YZ_5  11906 2     2         Female
## # … with 34 more rows
## Labeling done
## Filtering done
## Warning in DESeqDataSet(se, design = design, ignoreRank): some variables in
## design formula are characters, converting to factors
## Design done
## Warning in DESeqDataSet(se, design = design, ignoreRank): some variables in
## design formula are characters, converting to factors
## Warning: Setting row names on a tibble is deprecated.
## vsd symbols done
## using pre-existing size factors
## estimating dispersions
## gene-wise dispersion estimates
## mean-dispersion relationship
## final dispersion estimates
## fitting model and testing
## -- replacing outliers and refitting for 1201 genes
## -- DESeq argument 'minReplicatesForReplace' = 7 
## -- original counts are preserved in counts(dds)
## estimating dispersions
## fitting model and testing
## DESeq done
## using 'normal' for LFC shrinkage, the Normal prior from Love et al (2014).
## 
## Note that type='apeglm' and type='ashr' have shown to have less bias than type='normal'.
## See ?lfcShrink for more details on shrinkage type, and the DESeq2 vignette.
## Reference: https://doi.org/10.1093/bioinformatics/bty895
## res symbols done
## list done
## Unlist done
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch cluster Gender
##    <chr>       <chr> <chr> <chr>   <fct> 
##  1 R3388_YZ_43 11938 1     1       Male  
##  2 R3388_YZ_23 13376 1     3       Female
##  3 R3388_YZ_24 13436 1     3       Male  
##  4 R3388_YZ_56 8356  1     1       Female
##  5 R3388_YZ_7  12994 1     3       Male  
##  6 R3388_YZ_20 12929 1     1       Female
##  7 R3388_YZ_58 12924 1     2       Male  
##  8 R3388_YZ_25 13622 1     1       Female
##  9 R3388_YZ_27 13771 1     2       Female
## 10 R4163_YZ_18 13651 2     1       Female
## # … with 51 more rows
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_43 11938 1     1         Male  
##  2 R3388_YZ_23 13376 1     3         Female
##  3 R3388_YZ_24 13436 1     3         Male  
##  4 R3388_YZ_56 8356  1     1         Female
##  5 R3388_YZ_7  12994 1     3         Male  
##  6 R3388_YZ_20 12929 1     1         Female
##  7 R3388_YZ_58 12924 1     2         Male  
##  8 R3388_YZ_25 13622 1     1         Female
##  9 R3388_YZ_27 13771 1     2         Female
## 10 R4163_YZ_18 13651 2     1         Female
## # … with 51 more rows
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_43 11938 1     1         Male  
##  2 R3388_YZ_23 13376 1     3         Female
##  3 R3388_YZ_24 13436 1     3         Male  
##  4 R3388_YZ_56 8356  1     1         Female
##  5 R3388_YZ_7  12994 1     3         Male  
##  6 R3388_YZ_20 12929 1     1         Female
##  7 R3388_YZ_58 12924 1     2         Male  
##  8 R3388_YZ_25 13622 1     1         Female
##  9 R3388_YZ_27 13771 1     2         Female
## 10 R4163_YZ_18 13651 2     1         Female
## # … with 51 more rows
## # A tibble: 33 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_43 11938 1     1         Male  
##  2 R3388_YZ_23 13376 1     3         Female
##  3 R3388_YZ_24 13436 1     3         Male  
##  4 R3388_YZ_56 8356  1     1         Female
##  5 R3388_YZ_7  12994 1     3         Male  
##  6 R3388_YZ_20 12929 1     1         Female
##  7 R3388_YZ_25 13622 1     1         Female
##  8 R4163_YZ_18 13651 2     1         Female
##  9 R3388_YZ_57 13074 1     3         Female
## 10 R4163_YZ_17 13536 2     1         Female
## # … with 23 more rows
## Labeling done
## Filtering done
## Warning in DESeqDataSet(se, design = design, ignoreRank): some variables in
## design formula are characters, converting to factors
## Design done
## Warning in DESeqDataSet(se, design = design, ignoreRank): some variables in
## design formula are characters, converting to factors

## Warning in DESeqDataSet(se, design = design, ignoreRank): Setting row names on a
## tibble is deprecated.
## vsd symbols done
## using pre-existing size factors
## estimating dispersions
## gene-wise dispersion estimates
## mean-dispersion relationship
## final dispersion estimates
## fitting model and testing
## -- replacing outliers and refitting for 1197 genes
## -- DESeq argument 'minReplicatesForReplace' = 7 
## -- original counts are preserved in counts(dds)
## estimating dispersions
## fitting model and testing
## DESeq done
## using 'normal' for LFC shrinkage, the Normal prior from Love et al (2014).
## 
## Note that type='apeglm' and type='ashr' have shown to have less bias than type='normal'.
## See ?lfcShrink for more details on shrinkage type, and the DESeq2 vignette.
## Reference: https://doi.org/10.1093/bioinformatics/bty895
## res symbols done
## list done
## Unlist done
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch cluster Gender
##    <chr>       <chr> <chr> <chr>   <fct> 
##  1 R3388_YZ_43 11938 1     1       Male  
##  2 R3388_YZ_23 13376 1     3       Female
##  3 R3388_YZ_24 13436 1     3       Male  
##  4 R3388_YZ_56 8356  1     1       Female
##  5 R3388_YZ_7  12994 1     3       Male  
##  6 R3388_YZ_20 12929 1     1       Female
##  7 R3388_YZ_58 12924 1     2       Male  
##  8 R3388_YZ_25 13622 1     1       Female
##  9 R3388_YZ_27 13771 1     2       Female
## 10 R4163_YZ_18 13651 2     1       Female
## # … with 51 more rows
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_43 11938 1     1         Male  
##  2 R3388_YZ_23 13376 1     3         Female
##  3 R3388_YZ_24 13436 1     3         Male  
##  4 R3388_YZ_56 8356  1     1         Female
##  5 R3388_YZ_7  12994 1     3         Male  
##  6 R3388_YZ_20 12929 1     1         Female
##  7 R3388_YZ_58 12924 1     2         Male  
##  8 R3388_YZ_25 13622 1     1         Female
##  9 R3388_YZ_27 13771 1     2         Female
## 10 R4163_YZ_18 13651 2     1         Female
## # … with 51 more rows
## # A tibble: 61 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_43 11938 1     1         Male  
##  2 R3388_YZ_23 13376 1     3         Female
##  3 R3388_YZ_24 13436 1     3         Male  
##  4 R3388_YZ_56 8356  1     1         Female
##  5 R3388_YZ_7  12994 1     3         Male  
##  6 R3388_YZ_20 12929 1     1         Female
##  7 R3388_YZ_58 12924 1     2         Male  
##  8 R3388_YZ_25 13622 1     1         Female
##  9 R3388_YZ_27 13771 1     2         Female
## 10 R4163_YZ_18 13651 2     1         Female
## # … with 51 more rows
## # A tibble: 45 x 5
##    Vantage_ID  pt_ID Batch Condition Gender
##    <chr>       <chr> <chr> <chr>     <fct> 
##  1 R3388_YZ_23 13376 1     3         Female
##  2 R3388_YZ_24 13436 1     3         Male  
##  3 R3388_YZ_7  12994 1     3         Male  
##  4 R3388_YZ_58 12924 1     2         Male  
##  5 R3388_YZ_27 13771 1     2         Female
##  6 R3388_YZ_57 13074 1     3         Female
##  7 R3388_YZ_44 11817 1     2         Female
##  8 R4163_YZ_5  11906 2     2         Female
##  9 R3388_YZ_52 13276 1     3         Female
## 10 R3388_YZ_51 13207 1     3         Female
## # … with 35 more rows
## Labeling done
## Filtering done
## Warning in DESeqDataSet(se, design = design, ignoreRank): some variables in
## design formula are characters, converting to factors
## Design done
## Warning in DESeqDataSet(se, design = design, ignoreRank): some variables in
## design formula are characters, converting to factors

## Warning in DESeqDataSet(se, design = design, ignoreRank): Setting row names on a
## tibble is deprecated.
## vsd symbols done
## using pre-existing size factors
## estimating dispersions
## gene-wise dispersion estimates
## mean-dispersion relationship
## final dispersion estimates
## fitting model and testing
## -- replacing outliers and refitting for 1071 genes
## -- DESeq argument 'minReplicatesForReplace' = 7 
## -- original counts are preserved in counts(dds)
## estimating dispersions
## fitting model and testing
## DESeq done
## using 'normal' for LFC shrinkage, the Normal prior from Love et al (2014).
## 
## Note that type='apeglm' and type='ashr' have shown to have less bias than type='normal'.
## See ?lfcShrink for more details on shrinkage type, and the DESeq2 vignette.
## Reference: https://doi.org/10.1093/bioinformatics/bty895
## res symbols done
## list done

## `summarise()` ungrouping output (override with `.groups` argument)
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## `summarise()` ungrouping output (override with `.groups` argument)
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm = 1000): You are trying to run fgseaSimple. It is recommended to use fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument in the fgsea function call.

## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm = 1000): There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## `summarise()` ungrouping output (override with `.groups` argument)
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in fgsea(pathways = gmtPathways(pthw_path), stats = ranks, nperm
## = 1000): You are trying to run fgseaSimple. It is recommended to use
## fgseaMultilevel. To run fgseaMultilevel, you need to remove the nperm argument
## in the fgsea function call.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.01% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.

Clusters: 1 vs 2

## # A tibble: 27 x 8
##    pathway                     pval    padj    ES   NES nMoreExtreme  size state
##    <chr>                      <dbl>   <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 HALLMARK_G2M_CHECKPOINT  0.00182 0.00495 0.673  3.27            0   187 up   
##  2 HALLMARK_E2F_TARGETS     0.00180 0.00495 0.624  3.04            0   191 up   
##  3 HALLMARK_TNFA_SIGNALING… 0.00181 0.00495 0.528  2.58            0   195 up   
##  4 HALLMARK_INTERFERON_GAM… 0.00181 0.00495 0.529  2.58            0   194 up   
##  5 HALLMARK_MTORC1_SIGNALI… 0.00182 0.00495 0.518  2.52            0   190 up   
##  6 HALLMARK_EPITHELIAL_MES… 0.00181 0.00495 0.486  2.37            0   189 up   
##  7 HALLMARK_INFLAMMATORY_R… 0.00179 0.00495 0.478  2.33            0   193 up   
##  8 HALLMARK_MYC_TARGETS_V1  0.00181 0.00495 0.480  2.33            0   189 up   
##  9 HALLMARK_UNFOLDED_PROTE… 0.00186 0.00495 0.519  2.29            0   103 up   
## 10 HALLMARK_ALLOGRAFT_REJE… 0.00182 0.00495 0.422  2.05            0   187 up   
## # … with 17 more rows

## # A tibble: 30 x 8
##    pathway     pval   padj     ES   NES nMoreExtreme  size state
##    <chr>      <dbl>  <dbl>  <dbl> <dbl>        <dbl> <int> <chr>
##  1 chr16q22 0.00222 0.0257 -0.552 -2.58            0   132 down 
##  2 chr7p15  0.00184 0.0257  0.588  2.37            0    61 up   
##  3 chr8q24  0.00182 0.0257  0.458  2.18            0   185 up   
##  4 chr16q21 0.00219 0.0257 -0.593 -2.17            0    41 down 
##  5 chr7q32  0.00185 0.0257  0.571  2.16            0    46 up   
##  6 chr7p22  0.00181 0.0257  0.502  2.16            0    85 up   
##  7 chr8q22  0.00181 0.0257  0.495  2.13            0    84 up   
##  8 chr7q22  0.00177 0.0257  0.455  2.13            0   153 up   
##  9 chr14q12 0.00183 0.0257  0.518  2.12            0    65 up   
## 10 chr7p14  0.00181 0.0257  0.472  2.11            0   107 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 SOTIRIOU_BREAST_CANCER_G… 0.00175 0.0142 0.785  3.61            0   138 up   
##  2 ROSTY_CERVICAL_CANCER_PR… 0.00176 0.0142 0.770  3.51            0   130 up   
##  3 SHEDDEN_LUNG_CANCER_POOR… 0.00164 0.0142 0.648  3.43            0   426 up   
##  4 KOBAYASHI_EGFR_SIGNALING… 0.00172 0.0142 0.684  3.41            0   239 up   
##  5 CROONQUIST_IL6_DEPRIVATI… 0.00170 0.0142 0.758  3.27            0    91 up   
##  6 WHITEFORD_PEDIATRIC_CANC… 0.00178 0.0142 0.732  3.23            0   108 up   
##  7 KONG_E2F3_TARGETS         0.00171 0.0142 0.749  3.20            0    88 up   
##  8 ZHOU_CELL_CYCLE_GENES_IN… 0.00178 0.0142 0.713  3.20            0   116 up   
##  9 GRAHAM_NORMAL_QUIESCENT_… 0.00171 0.0142 0.759  3.19            0    83 up   
## 10 WINNEPENNINCKX_MELANOMA_… 0.00176 0.0142 0.681  3.17            0   150 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                 pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                  <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 HSD17B8_TARGET_GENES 0.00177 0.0377 0.506  2.73            0   539 up   
##  2 MIR625_3P            0.00189 0.0377 0.577  2.17            0    45 up   
##  3 HIF1_Q5              0.00179 0.0377 0.426  2.12            0   231 up   
##  4 E2F_Q6               0.00176 0.0377 0.428  2.11            0   212 up   
##  5 E2F1_Q6              0.00177 0.0377 0.422  2.08            0   215 up   
##  6 E2F_Q4               0.00177 0.0377 0.421  2.08            0   215 up   
##  7 E2F4DP1_01           0.00176 0.0377 0.412  2.04            0   219 up   
##  8 E2F_Q3_01            0.00177 0.0377 0.412  2.03            0   216 up   
##  9 SGCGSSAAA_E2F1DP2_01 0.00189 0.0377 0.433  2.02            0   153 up   
## 10 E2F1DP1_01           0.00177 0.0377 0.408  2.02            0   218 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway       pval    padj    ES   NES nMoreExtreme  size state
##    <chr>        <dbl>   <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 GNF2_CCNA2 0.00184 0.00720 0.822  3.35            0    65 up   
##  2 MODULE_54  0.00175 0.00720 0.669  3.33            0   241 up   
##  3 GNF2_CDC20 0.00187 0.00720 0.832  3.27            0    53 up   
##  4 GNF2_ESPL1 0.00183 0.00720 0.900  3.22            0    35 up   
##  5 GNF2_CENPF 0.00187 0.00720 0.805  3.22            0    58 up   
##  6 GNF2_PCNA  0.00184 0.00720 0.789  3.21            0    65 up   
##  7 GNF2_CDC2  0.00188 0.00720 0.803  3.20            0    59 up   
##  8 GNF2_CCNB2 0.00188 0.00720 0.813  3.20            0    54 up   
##  9 GNF2_MCM4  0.00183 0.00720 0.813  3.19            0    52 up   
## 10 GNF2_RRM2  0.00181 0.00720 0.867  3.19            0    39 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 GO_IMMUNOGLOBULIN_COMPLEX 0.00186 0.0266 0.650  2.92            0   124 up   
##  2 GO_IMMUNOGLOBULIN_PRODUC… 0.00171 0.0266 0.565  2.74            0   185 up   
##  3 GO_DNA_DEPENDENT_DNA_REP… 0.00183 0.0266 0.592  2.72            0   138 up   
##  4 GO_FC_EPSILON_RECEPTOR_S… 0.00176 0.0266 0.566  2.69            0   162 up   
##  5 GO_MITOTIC_SISTER_CHROMA… 0.00176 0.0266 0.563  2.62            0   142 up   
##  6 GO_SISTER_CHROMATID_SEGR… 0.00173 0.0266 0.543  2.61            0   171 up   
##  7 GO_NEGATIVE_REGULATION_O… 0.00186 0.0266 0.702  2.60            0    41 up   
##  8 GO_FC_RECEPTOR_MEDIATED_… 0.00185 0.0266 0.565  2.59            0   135 up   
##  9 GO_CELL_CYCLE_DNA_REPLIC… 0.00190 0.0266 0.648  2.59            0    61 up   
## 10 GO_REGULATION_OF_CELL_CY… 0.00171 0.0266 0.527  2.58            0   195 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                   pval    padj    ES   NES nMoreExtreme  size state
##    <chr>                    <dbl>   <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 RB_P107_DN.V1_UP       0.00179 0.00771 0.546  2.54            0   128 up   
##  2 BMI1_DN_MEL18_DN.V1_UP 0.00180 0.00771 0.538  2.52            0   135 up   
##  3 CSR_LATE_UP.V1_UP      0.00179 0.00771 0.510  2.43            0   156 up   
##  4 VEGF_A_UP.V1_DN        0.00181 0.00771 0.485  2.36            0   184 up   
##  5 PRC2_EZH2_UP.V1_DN     0.00177 0.00771 0.465  2.25            0   173 up   
##  6 HINATA_NFKB_IMMU_INF   0.00185 0.00771 0.786  2.24            0    14 up   
##  7 E2F1_UP.V1_UP          0.00177 0.00771 0.459  2.22            0   173 up   
##  8 CSR_EARLY_UP.V1_UP     0.00179 0.00771 0.462  2.17            0   139 up   
##  9 LEF1_UP.V1_UP          0.00178 0.00771 0.434  2.11            0   179 up   
## 10 MTOR_UP.V1_UP          0.00175 0.00771 0.419  2.00            0   153 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                     pval    padj    ES   NES nMoreExtreme  size state
##    <chr>                      <dbl>   <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 GSE15750_DAY6_VS_DAY10_… 0.00181 0.00731 0.655  3.16            0   181 up   
##  2 GSE15750_DAY6_VS_DAY10_… 0.00180 0.00731 0.651  3.15            0   188 up   
##  3 GSE14415_NATURAL_TREG_V… 0.00180 0.00731 0.650  3.11            0   173 up   
##  4 GSE13547_CTRL_VS_ANTI_I… 0.00179 0.00731 0.644  3.09            0   174 up   
##  5 GSE24634_TEFF_VS_TCONV_… 0.00180 0.00731 0.632  3.07            0   192 up   
##  6 GSE39556_CD8A_DC_VS_NK_… 0.00180 0.00731 0.626  3.03            0   185 up   
##  7 GSE36476_CTRL_VS_TSST_A… 0.00181 0.00731 0.623  3.01            0   183 up   
##  8 GSE13547_CTRL_VS_ANTI_I… 0.00183 0.00731 0.619  2.96            0   169 up   
##  9 GSE21063_WT_VS_NFATC1_K… 0.00180 0.00731 0.610  2.94            0   178 up   
## 10 GSE30962_PRIMARY_VS_SEC… 0.00182 0.00731 0.601  2.90            0   184 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 SOTIRIOU_BREAST_CANCER_G… 0.00173 0.0134 0.785  3.67            0   138 up   
##  2 ROSTY_CERVICAL_CANCER_PR… 0.00172 0.0134 0.770  3.58            0   130 up   
##  3 SHEDDEN_LUNG_CANCER_POOR… 0.00164 0.0134 0.648  3.46            0   426 up   
##  4 KOBAYASHI_EGFR_SIGNALING… 0.00175 0.0134 0.684  3.41            0   239 up   
##  5 GNF2_CCNA2                0.00180 0.0134 0.822  3.34            0    65 up   
##  6 MODULE_54                 0.00176 0.0134 0.669  3.33            0   241 up   
##  7 WHITEFORD_PEDIATRIC_CANC… 0.00177 0.0134 0.732  3.30            0   108 up   
##  8 CROONQUIST_IL6_DEPRIVATI… 0.00183 0.0134 0.758  3.30            0    91 up   
##  9 GNF2_CDC20                0.00178 0.0134 0.832  3.26            0    53 up   
## 10 ZHOU_CELL_CYCLE_GENES_IN… 0.00174 0.0134 0.713  3.25            0   116 up   
## # … with 20 more rows

Clusters: 1 vs 3

## # A tibble: 15 x 8
##    pathway                    pval    padj     ES   NES nMoreExtreme  size state
##    <chr>                     <dbl>   <dbl>  <dbl> <dbl>        <dbl> <int> <chr>
##  1 HALLMARK_MTORC1_SIGNAL… 0.00178 0.00842  0.559  2.68            0   190 up   
##  2 HALLMARK_E2F_TARGETS    0.00177 0.00842  0.523  2.52            0   191 up   
##  3 HALLMARK_G2M_CHECKPOINT 0.00181 0.00842  0.520  2.49            0   187 up   
##  4 HALLMARK_UNFOLDED_PROT… 0.00179 0.00842  0.509  2.22            0   103 up   
##  5 HALLMARK_MYC_TARGETS_V2 0.00185 0.00842  0.528  2.06            0    57 up   
##  6 HALLMARK_EPITHELIAL_ME… 0.00176 0.00842  0.422  2.03            0   189 up   
##  7 HALLMARK_MYC_TARGETS_V1 0.00176 0.00842  0.393  1.89            0   189 up   
##  8 HALLMARK_GLYCOLYSIS     0.00181 0.00842  0.388  1.86            0   188 up   
##  9 HALLMARK_OXIDATIVE_PHO… 0.00178 0.00842  0.380  1.80            0   175 up   
## 10 HALLMARK_INFLAMMATORY_… 0.00178 0.00842  0.350  1.69            0   193 up   
## 11 HALLMARK_INTERFERON_GA… 0.00179 0.00842  0.350  1.69            0   194 up   
## 12 HALLMARK_UV_RESPONSE_UP 0.00362 0.0151   0.342  1.57            1   147 up   
## 13 HALLMARK_KRAS_SIGNALIN… 0.00668 0.0257  -0.322 -1.55            2   179 down 
## 14 HALLMARK_P53_PATHWAY    0.00909 0.0325  -0.298 -1.45            3   190 down 
## 15 HALLMARK_HYPOXIA        0.0125  0.0418   0.294  1.40            6   180 up

## # A tibble: 30 x 8
##    pathway     pval   padj     ES   NES nMoreExtreme  size state
##    <chr>      <dbl>  <dbl>  <dbl> <dbl>        <dbl> <int> <chr>
##  1 chr7q32  0.00195 0.0226  0.691  2.65            0    46 up   
##  2 chr19p12 0.00207 0.0226 -0.691 -2.48            0    36 down 
##  3 chr22q11 0.00181 0.0226  0.479  2.32            0   214 up   
##  4 chr3p22  0.00212 0.0226 -0.500 -2.30            0   118 down 
##  5 chr3p14  0.00202 0.0226 -0.533 -2.29            0    83 down 
##  6 chr2p11  0.00187 0.0226  0.490  2.17            0   113 up   
##  7 MT       0.00205 0.0226 -0.623 -2.17            0    31 down 
##  8 chr3p12  0.00209 0.0226 -0.656 -2.14            0    25 down 
##  9 chr20p13 0.00197 0.0226  0.509  2.14            0    83 up   
## 10 chr7p15  0.00197 0.0226  0.533  2.14            0    61 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 REACTOME_CD22_MEDIATED_B… 0.00185 0.0272 0.777  3.09            0    59 up   
##  2 REACTOME_FCGR_ACTIVATION  0.00183 0.0272 0.746  3.05            0    68 up   
##  3 REACTOME_CREATION_OF_C4_… 0.00186 0.0272 0.733  3.01            0    70 up   
##  4 REACTOME_ANTIGEN_ACTIVAT… 0.00191 0.0272 0.702  2.96            0    81 up   
##  5 SOTIRIOU_BREAST_CANCER_G… 0.00180 0.0272 0.642  2.94            0   138 up   
##  6 SHEDDEN_LUNG_CANCER_POOR… 0.00169 0.0272 0.557  2.92            0   426 up   
##  7 REACTOME_ROLE_OF_LAT2_NT… 0.00183 0.0272 0.709  2.91            0    69 up   
##  8 ROSTY_CERVICAL_CANCER_PR… 0.00183 0.0272 0.638  2.88            0   130 up   
##  9 REACTOME_INITIAL_TRIGGER… 0.00186 0.0272 0.680  2.85            0    79 up   
## 10 ANASTASSIOU_MULTICANCER_… 0.00181 0.0272 0.704  2.84            0    62 up   
## # … with 20 more rows

## # A tibble: 0 x 8
## # … with 8 variables: pathway <chr>, pval <dbl>, padj <dbl>, ES <dbl>,
## #   NES <dbl>, nMoreExtreme <dbl>, size <int>, state <chr>

## # A tibble: 30 x 8
##    pathway       pval   padj    ES   NES nMoreExtreme  size state
##    <chr>        <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 MODULE_54  0.00170 0.0179 0.563  2.79            0   241 up   
##  2 GNF2_PCNA  0.00192 0.0179 0.676  2.72            0    65 up   
##  3 GNF2_CCNA2 0.00192 0.0179 0.675  2.72            0    65 up   
##  4 GNF2_RRM1  0.00190 0.0179 0.624  2.66            0    86 up   
##  5 GNF2_RRM2  0.00188 0.0179 0.734  2.63            0    39 up   
##  6 GNF2_MCM4  0.00191 0.0179 0.684  2.62            0    52 up   
##  7 GNF2_CDC20 0.00188 0.0179 0.668  2.59            0    53 up   
##  8 GNF2_CENPF 0.00185 0.0179 0.650  2.58            0    58 up   
##  9 GNF2_HMMR  0.00192 0.0179 0.690  2.58            0    46 up   
## 10 GNF2_CCNB2 0.00188 0.0179 0.663  2.57            0    54 up   
## # … with 20 more rows

## # A tibble: 0 x 8
## # … with 8 variables: pathway <chr>, pval <dbl>, padj <dbl>, ES <dbl>,
## #   NES <dbl>, nMoreExtreme <dbl>, size <int>, state <chr>

## # A tibble: 22 x 8
##    pathway                   pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                    <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 RB_P107_DN.V1_UP       0.00177 0.0212 0.475  2.15            0   128 up   
##  2 CSR_LATE_UP.V1_UP      0.00178 0.0212 0.445  2.08            0   156 up   
##  3 MTOR_UP.N4.V1_UP       0.00175 0.0212 0.425  2.03            0   183 up   
##  4 HOXA9_DN.V1_DN         0.00180 0.0212 0.423  2.00            0   176 up   
##  5 ALK_DN.V1_UP           0.00178 0.0212 0.443  2.00            0   124 up   
##  6 RPS14_DN.V1_DN         0.00179 0.0212 0.407  1.93            0   172 up   
##  7 PRC2_EZH2_UP.V1_DN     0.00178 0.0212 0.383  1.81            0   173 up   
##  8 RB_DN.V1_DN            0.00176 0.0212 0.402  1.79            0   113 up   
##  9 BMI1_DN_MEL18_DN.V1_UP 0.00178 0.0212 0.387  1.77            0   135 up   
## 10 LEF1_UP.V1_UP          0.00179 0.0212 0.364  1.72            0   179 up   
## # … with 12 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 GSE29614_CTRL_VS_DAY7_TI… 0.00184 0.0212 0.557  2.64            0   172 up   
##  2 GSE29614_DAY3_VS_DAY7_TI… 0.00183 0.0212 0.542  2.57            0   173 up   
##  3 GSE14415_TCONV_VS_FOXP3_… 0.00177 0.0212 0.544  2.56            0   160 up   
##  4 GSE5679_CTRL_VS_PPARG_LI… 0.00181 0.0212 0.536  2.55            0   178 up   
##  5 GSE36476_CTRL_VS_TSST_AC… 0.00180 0.0212 0.525  2.51            0   183 up   
##  6 GSE14415_INDUCED_VS_NATU… 0.00177 0.0212 0.518  2.45            0   166 up   
##  7 GSE16450_IMMATURE_VS_MAT… 0.00181 0.0212 0.513  2.45            0   181 up   
##  8 GSE24634_TREG_VS_TCONV_P… 0.00180 0.0212 0.512  2.45            0   183 up   
##  9 GSE36476_CTRL_VS_TSST_AC… 0.00181 0.0212 0.505  2.42            0   186 up   
## 10 GSE22886_NAIVE_BCELL_VS_… 0.00183 0.0212 0.508  2.42            0   180 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 GO_IMMUNOGLOBULIN_COMPLEX 0.00174 0.0455 0.708  3.16            0   124 up   
##  2 REACTOME_CD22_MEDIATED_B… 0.00173 0.0455 0.777  3.01            0    59 up   
##  3 REACTOME_FCGR_ACTIVATION  0.00177 0.0455 0.746  2.98            0    68 up   
##  4 REACTOME_CREATION_OF_C4_… 0.00176 0.0455 0.733  2.94            0    70 up   
##  5 REACTOME_ANTIGEN_ACTIVAT… 0.00173 0.0455 0.702  2.93            0    81 up   
##  6 SOTIRIOU_BREAST_CANCER_G… 0.00173 0.0455 0.642  2.92            0   138 up   
##  7 SHEDDEN_LUNG_CANCER_POOR… 0.00165 0.0455 0.557  2.89            0   426 up   
##  8 ROSTY_CERVICAL_CANCER_PR… 0.00174 0.0455 0.638  2.87            0   130 up   
##  9 REACTOME_ROLE_OF_LAT2_NT… 0.00177 0.0455 0.709  2.83            0    69 up   
## 10 REACTOME_INITIAL_TRIGGER… 0.00173 0.0455 0.680  2.82            0    79 up   
## # … with 20 more rows

Clusters: 3 vs 2

## # A tibble: 27 x 8
##    pathway                     pval    padj    ES   NES nMoreExtreme  size state
##    <chr>                      <dbl>   <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 HALLMARK_TNFA_SIGNALING… 0.00164 0.00632 0.578  2.71            0   195 up   
##  2 HALLMARK_G2M_CHECKPOINT  0.00162 0.00632 0.527  2.47            0   187 up   
##  3 HALLMARK_EPITHELIAL_MES… 0.00162 0.00632 0.482  2.26            0   189 up   
##  4 HALLMARK_E2F_TARGETS     0.00163 0.00632 0.481  2.25            0   191 up   
##  5 HALLMARK_INTERFERON_GAM… 0.00164 0.00632 0.459  2.15            0   194 up   
##  6 HALLMARK_INTERFERON_ALP… 0.00163 0.00632 0.504  2.13            0    93 up   
##  7 HALLMARK_INFLAMMATORY_R… 0.00163 0.00632 0.427  2.00            0   193 up   
##  8 HALLMARK_MITOTIC_SPINDLE 0.00164 0.00632 0.407  1.91            0   195 up   
##  9 HALLMARK_APICAL_JUNCTION 0.00162 0.00632 0.373  1.75            0   189 up   
## 10 HALLMARK_COMPLEMENT      0.00163 0.00632 0.367  1.71            0   193 up   
## # … with 17 more rows

## # A tibble: 30 x 8
##    pathway     pval   padj     ES   NES nMoreExtreme  size state
##    <chr>      <dbl>  <dbl>  <dbl> <dbl>        <dbl> <int> <chr>
##  1 MT       0.00178 0.0229  0.808  2.72            0    31 up   
##  2 chr16q22 0.00260 0.0229 -0.575 -2.69            0   132 down 
##  3 chr10q26 0.00259 0.0229 -0.549 -2.49            0   108 down 
##  4 chr14q24 0.00262 0.0229 -0.515 -2.40            0   130 down 
##  5 chr3q29  0.00169 0.0229  0.548  2.21            0    76 up   
##  6 chr12p11 0.00175 0.0229  0.620  2.20            0    41 up   
##  7 chr16q23 0.00239 0.0229 -0.541 -2.20            0    59 down 
##  8 chr21q22 0.00155 0.0229  0.468  2.19            0   193 up   
##  9 chr12q21 0.00172 0.0229  0.532  2.08            0    66 up   
## 10 chr7p15  0.00172 0.0229  0.540  2.08            0    61 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 SOTIRIOU_BREAST_CANCER_G… 0.00161 0.0209 0.663  3.01            0   138 up   
##  2 ROSTY_CERVICAL_CANCER_PR… 0.00163 0.0209 0.635  2.84            0   130 up   
##  3 CROONQUIST_NRAS_SIGNALIN… 0.00172 0.0209 0.707  2.83            0    68 up   
##  4 CROONQUIST_IL6_DEPRIVATI… 0.00163 0.0209 0.669  2.83            0    91 up   
##  5 FLORIO_NEOCORTEX_BASAL_R… 0.00160 0.0209 0.602  2.80            0   171 up   
##  6 KOBAYASHI_EGFR_SIGNALING… 0.00152 0.0209 0.571  2.77            0   239 up   
##  7 WHITEFORD_PEDIATRIC_CANC… 0.00162 0.0209 0.625  2.73            0   108 up   
##  8 TANG_SENESCENCE_TP53_TAR… 0.00171 0.0209 0.708  2.71            0    54 up   
##  9 KONG_E2F3_TARGETS         0.00166 0.0209 0.632  2.65            0    88 up   
## 10 LE_EGR2_TARGETS_UP        0.00164 0.0209 0.613  2.65            0   101 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                 pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                  <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 HSD17B8_TARGET_GENES 0.00136 0.0287 0.456  2.40            0   539 up   
##  2 SRF_Q6               0.00149 0.0287 0.441  2.14            0   232 up   
##  3 SRF_C                0.00156 0.0287 0.449  2.14            0   206 up   
##  4 SRF_Q5_01            0.00155 0.0287 0.422  2.01            0   209 up   
##  5 PIT1_Q6              0.00155 0.0287 0.401  1.91            0   207 up   
##  6 SRF_Q4               0.00153 0.0287 0.398  1.91            0   212 up   
##  7 ATF3_Q6              0.00148 0.0287 0.388  1.89            0   238 up   
##  8 GTGACTT_MIR224       0.00156 0.0287 0.410  1.88            0   149 up   
##  9 MIR603               0.00157 0.0287 0.404  1.87            0   161 up   
## 10 NFKAPPAB_01          0.00148 0.0287 0.379  1.85            0   238 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway        pval   padj    ES   NES nMoreExtreme  size state
##    <chr>         <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 GNF2_CCNA2  0.00175 0.0159 0.690  2.73            0    65 up   
##  2 GNF2_CCNB2  0.00177 0.0159 0.695  2.65            0    54 up   
##  3 GNF2_CENPF  0.00176 0.0159 0.684  2.65            0    58 up   
##  4 GNF2_CDC2   0.00175 0.0159 0.679  2.64            0    59 up   
##  5 GNF2_PCNA   0.00175 0.0159 0.667  2.64            0    65 up   
##  6 GNF2_CDC20  0.00179 0.0159 0.693  2.64            0    53 up   
##  7 GNF2_CKS2   0.00179 0.0159 0.697  2.60            0    48 up   
##  8 GNF2_HMMR   0.00181 0.0159 0.702  2.59            0    46 up   
##  9 GNF2_SMC4L1 0.00174 0.0159 0.626  2.56            0    80 up   
## 10 MODULE_54   0.00155 0.0159 0.518  2.53            0   241 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 GO_CILIUM_MOVEMENT        0.00179 0.0242 0.664  2.57            0    56 up   
##  2 GO_AXONEME_ASSEMBLY       0.00182 0.0242 0.685  2.55            0    47 up   
##  3 GO_CORNIFICATION          0.00170 0.0242 0.602  2.54            0    88 up   
##  4 GO_CILIARY_PLASM          0.00169 0.0242 0.587  2.53            0   101 up   
##  5 GO_AXONEMAL_DYNEIN_COMPL… 0.00178 0.0242 0.778  2.52            0    25 up   
##  6 GO_KERATINIZATION         0.00168 0.0242 0.571  2.48            0   103 up   
##  7 GO_MICROTUBULE_MOTOR_ACT… 0.00176 0.0242 0.590  2.45            0    82 up   
##  8 GO_CENTRIOLE              0.00168 0.0242 0.537  2.37            0   119 up   
##  9 GO_MOTOR_ACTIVITY         0.00163 0.0242 0.523  2.36            0   134 up   
## 10 GO_MICROTUBULE_CYTOSKELE… 0.00147 0.0242 0.445  2.32            0   498 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 BMI1_DN_MEL18_DN.V1_UP    0.00162 0.0110 0.512  2.32            0   135 up   
##  2 RPS14_DN.V1_UP            0.00156 0.0110 0.452  2.12            0   182 up   
##  3 SRC_UP.V1_DN              0.00161 0.0110 0.451  2.07            0   155 up   
##  4 KRAS.LUNG.BREAST_UP.V1_UP 0.00164 0.0110 0.459  2.06            0   124 up   
##  5 LTE2_UP.V1_DN             0.00156 0.0110 0.433  2.03            0   182 up   
##  6 MYC_UP.V1_DN              0.00162 0.0110 0.437  2.00            0   153 up   
##  7 STK33_UP                  0.00147 0.0110 0.398  1.95            0   263 up   
##  8 EGFR_UP.V1_UP             0.00157 0.0110 0.414  1.94            0   180 up   
##  9 E2F1_UP.V1_UP             0.00161 0.0110 0.414  1.92            0   173 up   
## 10 RB_P107_DN.V1_UP          0.00161 0.0110 0.423  1.91            0   128 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 GSE15750_DAY6_VS_DAY10_T… 0.00159 0.0228 0.558  2.62            0   188 up   
##  2 GSE15750_DAY6_VS_DAY10_E… 0.0016  0.0228 0.549  2.57            0   181 up   
##  3 GSE2706_UNSTIM_VS_2H_LPS… 0.00159 0.0228 0.547  2.57            0   180 up   
##  4 GSE13547_CTRL_VS_ANTI_IG… 0.00161 0.0228 0.540  2.51            0   169 up   
##  5 GSE39556_CD8A_DC_VS_NK_C… 0.00159 0.0228 0.527  2.47            0   185 up   
##  6 GSE13547_CTRL_VS_ANTI_IG… 0.00161 0.0228 0.524  2.45            0   174 up   
##  7 GSE27241_WT_VS_RORGT_KO_… 0.00160 0.0228 0.538  2.44            0   142 up   
##  8 GSE14415_NATURAL_TREG_VS… 0.00163 0.0228 0.523  2.43            0   173 up   
##  9 GSE2706_UNSTIM_VS_2H_R84… 0.00161 0.0228 0.522  2.43            0   176 up   
## 10 GSE13485_DAY3_VS_DAY7_YF… 0.00159 0.0228 0.514  2.41            0   180 up   
## # … with 20 more rows

## # A tibble: 30 x 8
##    pathway                      pval   padj    ES   NES nMoreExtreme  size state
##    <chr>                       <dbl>  <dbl> <dbl> <dbl>        <dbl> <int> <chr>
##  1 SOTIRIOU_BREAST_CANCER_G… 0.00162 0.0209 0.663  3.01            0   138 up   
##  2 CROONQUIST_NRAS_SIGNALIN… 0.00171 0.0209 0.707  2.86            0    68 up   
##  3 ROSTY_CERVICAL_CANCER_PR… 0.0016  0.0209 0.635  2.86            0   130 up   
##  4 CROONQUIST_IL6_DEPRIVATI… 0.00169 0.0209 0.669  2.85            0    91 up   
##  5 FLORIO_NEOCORTEX_BASAL_R… 0.00160 0.0209 0.602  2.83            0   171 up   
##  6 KOBAYASHI_EGFR_SIGNALING… 0.00156 0.0209 0.571  2.78            0   239 up   
##  7 GNF2_CCNA2                0.00170 0.0209 0.690  2.78            0    65 up   
##  8 HALLMARK_TNFA_SIGNALING_… 0.00162 0.0209 0.578  2.76            0   195 up   
##  9 WHITEFORD_PEDIATRIC_CANC… 0.00165 0.0209 0.625  2.74            0   108 up   
## 10 MT                        0.00184 0.0209 0.808  2.72            0    31 up   
## # … with 20 more rows
## Loading required package: xgboost
## 
## Attaching package: 'xgboost'
## The following object is masked from 'package:clusterProfiler':
## 
##     slice
## The following object is masked from 'package:IRanges':
## 
##     slice
## The following object is masked from 'package:dplyr':
## 
##     slice
## Loading required package: plotROC
## [1] "**************************************"
## [1] "    Gene Match Error Report           "
## [1] "                                      "
## [1] "  percent missing genes: 4.12371134020619           "
## [1] "                                      "
## [1] "see ?geneMatchErrorReport for details "
## [1] "                                      "
## [1] "**************************************"
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:10] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:10] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:10] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:10] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:11] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:11] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:11] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:11] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:11] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:11] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:11] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:12] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:12] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:12] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:12] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:13] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:13] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:13] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:13] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:13] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:13] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:13] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:13] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:14] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:14] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:14] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:14] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:15] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:15] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:15] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:15] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:15] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:15] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:15] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:16] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:16] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:16] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:16] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:16] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:16] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:17] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:17] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:17] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:17] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:17] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:17] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:18] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:18] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:18] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:18] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:18] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:18] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:18] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:19] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:19] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:19] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:19] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:20] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:20] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:20] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:20] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:20] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:20] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:20] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:21] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:21] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:21] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:21] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:22] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:22] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:22] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:22] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:22] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:22] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:22] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:22] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:23] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:23] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:23] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:23] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:24] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:24] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:24] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:24] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:24] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:24] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:24] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:25] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:25] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:25] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 1"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:25] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 2"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:25] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 3"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:25] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 4"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:26] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 5"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:26] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## [1] "calling subtype 6"
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used

## Warning in if (class(Xsub) == "numeric" & length(gs) == 1) {: the condition has
## length > 1 and only the first element will be used
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:26] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
## Warning in value[[3L]](cond): The model had been generated by XGBoost version
## 1.0.0 or earlier and was loaded from a RDS file. We strongly ADVISE AGAINST
## using saveRDS() function, to ensure that your model can be read in current
## and upcoming XGBoost releases. Please use xgb.save() instead to preserve
## models for the long term. For more details and explanation, see https://
## xgboost.readthedocs.io/en/latest/tutorials/saving_model.html
## [14:27:26] WARNING: amalgamation/../src/learner.cc:764: Loading model from XGBoost < 1.0.0, consider saving it again for improved compatibility
##    SampleIDs BestCall            1            2            3            4
## 1      11938        3 6.889728e-04 6.051170e-04 0.9570761323 3.187499e-03
## 2      13376        3 1.203490e-04 3.925278e-04 0.9614450634 2.396060e-03
## 3      13436        3 5.502111e-04 2.769021e-04 0.9773325920 1.154565e-03
## 4       8356        3 2.676306e-06 2.201998e-03 0.9158854187 1.701648e-01
## 5      12994        3 8.091869e-06 1.595201e-04 0.9857507646 4.193404e-03
## 6      12929        1 1.164021e-01 9.342949e-02 0.0007892179 3.733097e-01
## 7      12924        3 6.239439e-04 8.946817e-04 0.7996449471 2.338867e-03
## 8      13622        3 4.614695e-06 3.395264e-03 0.9673994184 3.832535e-03
## 9      13771        3 6.812570e-05 1.417015e-03 0.9531192482 1.634869e-03
## 10     13651        3 6.137688e-05 9.350864e-04 0.9589445293 6.959503e-05
## 11     13074        3 3.704056e-04 6.554004e-04 0.8420395851 1.227440e-03
## 12     11817        2 1.059704e-04 5.014722e-01 0.0064765047 3.947885e-02
## 13     13536        3 1.108100e-05 1.403437e-03 0.9936358631 3.826584e-03
## 14     11906        3 4.396748e-06 4.180702e-03 0.9126245379 1.608223e-03
## 15     13276        3 5.178310e-04 1.911176e-03 0.7860286236 1.406794e-03
## 16     13207        3 3.263833e-05 1.235849e-01 0.1763134077 4.660154e-03
## 17     13317        3 1.127181e-05 9.233247e-03 0.9055060148 1.450856e-03
## 18     12915        3 2.822714e-05 1.460672e-03 0.9420797825 8.051937e-05
## 19     13769        3 5.225192e-05 2.890898e-03 0.9624916613 4.694443e-03
## 20     11855        3 6.459214e-05 3.031237e-02 0.9291603267 7.301240e-05
## 21     11851        3 1.389975e-04 1.110947e-02 0.8832649589 1.426855e-04
## 22     11538        2 3.479228e-03 5.704845e-01 0.0003373044 7.524436e-03
## 23     12889        2 5.761194e-02 4.345135e-02 0.0152495299 1.485271e-04
## 24     12931        6 9.827165e-04 5.380209e-02 0.0956454016 1.622393e-03
## 25     11813        3 2.148977e-05 1.693160e-03 0.6686060429 1.409244e-02
## 26     11646        3 5.329720e-06 1.947173e-04 0.9636503160 9.501971e-03
## 27     11759        3 1.104846e-05 1.950197e-02 0.4028731585 5.659887e-04
## 28     13014        3 2.794854e-05 9.342625e-06 0.9978911579 3.635891e-04
## 29     14855        3 3.649543e-04 2.592885e-05 0.8092762828 2.048053e-02
## 30     11952        3 7.384651e-05 3.283263e-04 0.7394341230 3.640215e-03
## 31     11561        3 4.808606e-04 6.237800e-04 0.8979193866 1.750923e-03
## 32     11886        3 9.903786e-05 2.799986e-01 0.6469790637 8.568622e-05
## 33     13724        6 3.135790e-03 1.616793e-04 0.2406570986 8.060681e-04
## 34     14958        6 4.977245e-04 2.898976e-05 0.6558522582 3.846478e-02
## 35     12281        4 4.344972e-07 3.480426e-03 0.1492266692 8.669103e-01
## 36     12323        3 1.682094e-05 1.436690e-03 0.5717841983 1.619845e-03
## 37     14955        3 1.641967e-05 6.878190e-03 0.9579965174 1.699107e-04
## 38     15001        3 1.223477e-05 5.619787e-03 0.9788657427 1.583659e-04
## 39     14048        3 9.374188e-03 2.763277e-05 0.9262724221 7.411178e-05
## 40     14836        6 1.041214e-02 7.244922e-06 0.3354724050 2.927356e-02
## 41     15224        3 7.306415e-04 9.591941e-04 0.8095786870 2.445559e-03
## 42     14965        3 1.063939e-05 5.258684e-05 0.9900034666 2.456760e-02
## 43     15325        3 2.926972e-05 1.934321e-03 0.9932931662 1.531609e-04
## 44     14962        3 5.974333e-04 1.118672e-02 0.4734233469 9.656878e-05
## 45     15187        3 1.410867e-05 5.092514e-05 0.9711570144 7.968869e-05
## 46     15506        6 7.458524e-04 1.192871e-03 0.3299314231 3.820247e-03
## 47     14301        3 4.711850e-05 3.262609e-04 0.5662137866 1.310341e-02
## 48     13538        3 2.237934e-04 3.222045e-04 0.8543905318 1.603683e-01
## 49     15326        3 8.314358e-06 5.165172e-04 0.9715524316 1.064571e-04
## 50     15569        6 1.687169e-03 9.149568e-03 0.1655318737 6.458916e-04
## 51     14610        3 1.503661e-03 4.328039e-03 0.4970074147 1.538928e-03
## 52     13988        3 1.280151e-04 2.239784e-03 0.9155572951 2.301857e-04
## 53     13155        3 2.616700e-04 2.270672e-01 0.1758311316 1.108336e-04
## 54     15083        3 7.744372e-05 2.254463e-03 0.9641636014 4.247451e-04
## 55     11652        3 8.834985e-06 7.547667e-03 0.9761974514 1.926163e-03
## 56     15002        2 9.702497e-06 8.082837e-01 0.0200097463 5.455475e-04
## 57     11840        3 9.323592e-05 2.840519e-02 0.7370048165 1.308630e-03
## 58     12546        3 2.030095e-04 1.879240e-04 0.5563963056 6.163817e-01
## 59     12890        3 5.245637e-04 1.779977e-02 0.9566491842 6.312357e-03
## 60     15467        3 7.526856e-05 4.191207e-04 0.9777901471 3.513539e-04
## 61     15741        3 3.705755e-02 1.086458e-05 0.8835451305 1.850815e-04
##               5            6
## 1  0.0003419580 0.0630473197
## 2  0.0001384208 0.0371277723
## 3  0.0002528820 0.1074367501
## 4  0.0335787777 0.0006541669
## 5  0.0008528302 0.0156791201
## 6  0.0004035587 0.0703490376
## 7  0.0002567804 0.1682385132
## 8  0.0020902035 0.0801462755
## 9  0.0018166185 0.0029279866
## 10 0.0002636779 0.1339606643
## 11 0.0002193201 0.3795167953
## 12 0.0003155326 0.0939189047
## 13 0.0006033378 0.0054222029
## 14 0.0004283631 0.0010597857
## 15 0.0001766836 0.2913703620
## 16 0.0002347381 0.0155441179
## 17 0.0005198234 0.0177424708
## 18 0.0002463589 0.1214904338
## 19 0.0002142620 0.0073115239
## 20 0.0001601416 0.0064595726
## 21 0.0002727052 0.0907236040
## 22 0.0002155181 0.0790079162
## 23 0.0002666300 0.0403294507
## 24 0.0001842985 0.1141378768
## 25 0.0009562963 0.0078097754
## 26 0.0037297499 0.0696931351
## 27 0.0002906510 0.0208979156
## 28 0.0005869557 0.0206791032
## 29 0.0009721064 0.0900520049
## 30 0.0001975303 0.0404366646
## 31 0.0007112472 0.0212978227
## 32 0.0001633070 0.0118840067
## 33 0.0001532568 0.2474698871
## 34 0.0003377221 0.4680413902
## 35 0.0011679233 0.0005280179
## 36 0.0002947169 0.0170658897
## 37 0.0002288392 0.0876452848
## 38 0.0001304842 0.0079756782
## 39 0.0002151403 0.1586457789
## 40 0.0011405723 0.1366542540
## 41 0.0007209121 0.3580315560
## 42 0.0033720389 0.0047873741
## 43 0.0001509590 0.0044160329
## 44 0.0002257103 0.0724945813
## 45 0.0004410252 0.0335667469
## 46 0.0003025525 0.3326339424
## 47 0.0006686119 0.2738350779
## 48 0.0003827092 0.0383272655
## 49 0.0004410357 0.0543224197
## 50 0.0002319725 0.2107039317
## 51 0.0001470712 0.0585166514
## 52 0.0004876457 0.0784757249
## 53 0.0005697989 0.0665245149
## 54 0.0007479073 0.0126458094
## 55 0.0004129122 0.0016634092
## 56 0.0006226820 0.0072699846
## 57 0.0002804068 0.0038553288
## 58 0.0004771302 0.0003869796
## 59 0.0002298546 0.0090248995
## 60 0.0007178576 0.0144286179
## 61 0.0010716403 0.0495557245
## 
##  3  6 
## 15  2

## `geom_smooth()` using formula 'y ~ x'

## `geom_smooth()` using formula 'y ~ x'

## `geom_smooth()` using formula 'y ~ x'